 
===============
Private Sub Command1_Click()
On Error GoTo eror_non
Dim Number$, Temp$
Call_n.Caption = "  / " & Trim(Text1)

Number$ = Trim(Text1.Text)
If Number$ = "" Then Exit Sub
Command1.Enabled = False
Command2.Enabled = True
Status = "   " + Number$

Dial Number$
eror_non:
End Sub
Private Sub Dial(Number$)
On Error GoTo error_1
Dim DialString$, FromModem$, dummy
Dim msg1 As String
Dim msg2 As String
Dim response As Integer
Dim mod_com As Integer

mod_com = 2

